home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.02 Feb 88 / pascal sources / Plot Project Stuff / Plotter.R < prev    next >
Encoding:
Text File  |  1988-01-07  |  9.4 KB  |  670 lines  |  [TEXT/EDIT]

  1. *Plotter.R
  2. *
  3.  
  4. Plotter.RSRC
  5. ????????
  6.  
  7. Type PLTR = STR 
  8.     ,0
  9. © by Dave Kelly & Dave Smith \0Dver 4 JAN 1988
  10.  
  11. Type FREF
  12. ,128
  13. APPL 0
  14. ,129
  15. PICT 1
  16.  
  17. Type BNDL
  18. ,128
  19. PLTR 0
  20. ICN#
  21. 0 128 1 129
  22. FREF 
  23. 0 128 1 129
  24.  
  25. * ------ Multifinder events ---------
  26.  
  27. * bit 15 = switcher save screen
  28. * bit 14 = accept suspend resume events
  29. * bit 13 = switcher enable option switch
  30. * bit 12 = can do background on null events
  31. * bit 11 = multifinder aware 
  32. *         (activates & deactivates topmost 
  33. *           window at resume, suspend events)
  34.  
  35. Type SIZE = GNRL
  36.     ,-1
  37. .H
  38. 4800        ;; $4800 = bits 14,11 set
  39. .L
  40. 128000    ;; (for 150K recomended)
  41. .L
  42. 80000    ;; (for 80K minimum)
  43. .I
  44. * ------------- menus -------------
  45.  
  46. Type MENU
  47. * the desk acc menu
  48.     ,256
  49. \14        ;;apple menu
  50.     About Plotter…
  51.     (-
  52.  
  53. * the file menu
  54.     ,257
  55. File
  56.     Plot /P
  57.     (-
  58.     (Save /S
  59.     Save as…
  60.     Page Setup… /U
  61.     (Print… /O
  62.     (-
  63.        Quit /Q
  64.  
  65. * the edit menu
  66.     ,258
  67. Edit
  68.     (Undo /Z
  69.     (-
  70.     Cut /X
  71.     Copy /C
  72.     Paste /V
  73.     Clear
  74.  
  75. * the color menu
  76.     ,259
  77. Color
  78.     Graph /\1B!\2C
  79.     Axis /\1B!\2D
  80.     Background /\1B!\2E
  81.  
  82. * the Option menu
  83.     ,260
  84. Print Options
  85.     Window Size /[
  86.     Page Size /]
  87.  
  88. * submenus
  89.     ,44
  90. Graph
  91.     Black
  92.     White
  93.     Red
  94.     Green
  95.     Blue
  96.     Cyan
  97.     Magenta
  98.     Yellow
  99.  
  100.     ,45
  101. Axis
  102.     Black
  103.     White
  104.     Red
  105.     Green
  106.     Blue
  107.     Cyan
  108.     Magenta
  109.     Yellow
  110.  
  111.     ,46
  112. Background
  113.     Black
  114.     White
  115.     Red
  116.     Green
  117.     Blue
  118.     Cyan
  119.     Magenta
  120.     Yellow
  121.  
  122.  
  123. * ------- Dialogs --------
  124. * About Box dialog...
  125. type DLOG
  126.     ,256
  127. About Plotter…
  128. 100 100 250 400 
  129. visible NoGoAway 
  130. 1
  131. 0
  132. 256
  133.  
  134. type DITL
  135.     ,256
  136. 3
  137. BtnItem Enabled
  138. 112 235 141 284 
  139. OK
  140.  
  141. StatText Disabled
  142. 10 88 141 289 
  143. Plot Demo\0D\0D++
  144. Graphs Quadratic Equations\0D^0\0D^1\0D^2\0D^3
  145.  
  146. PicItem Disabled
  147. 10 10 96 81 
  148. 128
  149.  
  150. * Plot box dialog...
  151. type DLOG
  152.     ,257
  153. Plot Parameters
  154. 100 105 250 405 
  155. Visible NoGoAway 
  156. 4
  157. 0
  158. 257
  159.  
  160. type DITL
  161.     ,257
  162. 13
  163. * ok button (default)
  164. BtnItem Enabled
  165. 110 230 136 275 
  166. OK
  167.  
  168. * a parameter
  169. EditText Enabled
  170. 30 15 46 60 
  171. 1
  172.  
  173. * b parameter
  174. EditText Enabled
  175. 30 100 46 145 
  176. -1
  177.  
  178. *c parameter
  179. EditText Enabled
  180. 30 180 46 225 
  181. -6
  182.  
  183. * step parameter
  184. EditText Enabled
  185. 80 10 96 65 
  186. .05
  187.  
  188. * xscale parameter
  189. EditText Enabled
  190. 80 100 96 150
  191. 10
  192.  
  193. * yscale parameter
  194. EditText Enabled
  195. 80 185 96 235 
  196. 20
  197.  
  198. StatText Disabled
  199. 10 35 26 55 
  200. a
  201.  
  202. StatText Disabled
  203. 10 120 26 140 
  204. b
  205.  
  206. StatText Disabled
  207. 10 200 26 220 
  208. c
  209.  
  210. StatText Disabled
  211. 60 10 76 65 
  212. step size
  213.  
  214. StatText Disabled
  215. 60 95 76 150 
  216. x scale
  217.  
  218. StatText Disabled
  219. 60 180 76 250 
  220. y scale
  221.  
  222. * Program Messages Dialog box...
  223. type DLOG
  224.     ,258
  225. Program Messages
  226. 100 100 200 400
  227. Visible NoGoAway
  228. 1
  229. 0
  230. 258
  231.  
  232. type DITL
  233.     ,258
  234. 3
  235. BtnItem Enabled
  236. 65 230 95 285
  237. OK
  238.  
  239. StatText Disabled
  240. 15 60 85 222 
  241. ^0\0D^1\0D^2\0D^3
  242.  
  243. IconItem Disabled
  244. 10 10 42 42
  245. 1
  246.  
  247. * ------ Alerts ------------
  248.  
  249. * Program error alerts...
  250. type ALRT
  251.     ,260
  252. 100 100 200 400
  253. 260
  254. 5555
  255.  
  256. type DITL
  257.     ,260
  258. 2
  259.  
  260. BtnItem
  261. 65 230 95 285
  262. OK
  263.  
  264. StatText Disabled
  265. 15 60 60 275 
  266. Program Problem Alert:\0D^0^1^2^3
  267.  
  268. * misc resources
  269.  
  270. Type ICN# = GNRL
  271.   ,128 (0)
  272. .H
  273. 0001 0000 0002 8000 0004 4000 0008 2000 
  274. 0010 1000 0020 0800 0050 0400 0088 0200 
  275. 0100 0100 0284 0080 0440 0240 0822 0420 
  276. 1410 0810 220A 1008 4084 3F04 802A 4082 
  277. 4001 8041 2003 3022 1005 C814 080E 7F8F 
  278. 0412 3005 0221 0007 0140 8005 0080 6007 
  279. 0040 1FE5 0020 021F 0010 0407 0008 0800 
  280. 0004 1000 0002 2000 0001 4000 0000 8000
  281. *
  282. 0001 0000 0003 8000 0007 C000 000F E000 
  283. 001F F000 003F F800 007F FC00 00FF FE00 
  284. 01FF FF00 03FF FF80 07FF FFC0 0FFF FFE0 
  285. 1FFF FFF0 3FFF FFF8 7FFF FFFC FFFF FFFE 
  286. 7FFF FFFF 3FFF FFFE 1FFF FFFC 0FFF FFFF 
  287. 07FF FFFF 03FF FFFF 01FF FFFF 00FF FFFF 
  288. 007F FFFF 003F FE1F 001F FC07 000F F800 
  289. 0007 F000 0003 E000 0001 C000 0000 8000 
  290.  
  291. Type ICN# = GNRL
  292.   ,129 (0)
  293. .H
  294. 0FFF FE00 0800 0300 0800 0280 0800 0240 
  295. 0800 0220 0800 0210 0800 03F8 0801 0008 
  296. 0880 0008 0801 0208 0840 0008 0801 0408 
  297. 0820 0008 0801 0808 0810 0008 0801 1008 
  298. 0AAB AAA8 0809 2008 0804 4008 0803 8008 
  299. 0800 0008 0801 0008 0800 0008 0801 0008 
  300. 0800 0008 0801 0008 0800 0008 0801 0008 
  301. 0800 0008 0800 0008 0800 0008 0FFF FFF8
  302. *
  303. 0FFF FE00 0FFF FF00 0FFF FF80 0FFF FFC0 
  304. 0FFF FFE0 0FFF FFF0 0FFF FFF8 0FFE FFF8 
  305. 0F7F FFF8 0FFE FDF8 0FBF FFF8 0FFF FBF8 
  306. 0FDD 7FF8 0FFA B7F8 0FE7 DFF8 0FEF FFF8 
  307. 0D74 5D58 0FB7 DBF8 0F7B BDF8 0EFD 7EF8 
  308. 0FFF FFF8 0FFF FFF8 0FFF FFF8 0FFF FFF8 
  309. 0FFF FFF8 0FFF FFF8 0FFF FFF8 0FFF FFF8 
  310. 0FFF FFF8 0FFF FFF8 0FFF FFF8 0FFF FFF8 
  311.  
  312.     
  313. TYPE PICT = GNRL
  314.     ,128
  315. .I
  316. 891
  317. 195 254 281 325
  318. .H
  319. 1101 A000 82A0 008E 0100 0A00 0000 0002
  320. D002 4098 000A 00C3 00F8 00FF 0148 00C3
  321. 00FE 00FF 0145 00C3 00FE 00FF 0145 0000
  322. 02F7 0002 F700 02F7 0002 F700 02F7 0002
  323. F700 02F7 0002 F700 02F7 0002 F700 02F7
  324. 0006 FD00 000E FC00 07FD 0001 1F80 FD00
  325. 07FD 0001 7FC0 FD00 07FD 0001 FFF0 FD00
  326. 08FE 0002 03FF FCFD 0008 FE00 0207 FFFE
  327. FD00 09FE 0003 1FFF FF80 FE00 09FE 0003
  328. 3FFF FFE0 FE00 09FE 0003 7FFF FFF8 FE00
  329. 0A02 0000 01FE FF00 FCFE 0008 0200 0003
  330. FDFF FE00 0A02 0000 0FFD FF00 C0FF 000B
  331. 0700 001F FFFF 3FFF E0FF 000B 0700 007F
  332. FFFE 1FFF F8FF 000B 0700 00FF FFFE 1FFF
  333. FCFF 000B 0100 01FE FF02 27FF FCFF 000B
  334. 0100 01FE FF02 F9FF F8FF 000B 0100 00FE
  335. FF02 FE7F F0FF 000B 0200 003F FEFF 019F
  336. E0FF 000B 0200 001F FEFF 01E7 C0FF 000B
  337. 0200 003F FEFF 01F9 80FF 000B 0200 0033
  338. FEFF 01FE 80FF 000A 0200 0060 FDFF 00C0
  339. FF00 0B07 0000 607F FFFF FCC0 FF00 0B07
  340. 0000 601F FFFF F870 FF00 0B07 0000 6007
  341. FFFF F0F8 FF00 0B07 0000 6001 FFFF F0F8
  342. FF00 0B07 0000 6000 FFFF F0F8 FF00 0B07
  343. 0000 6038 3FFF B050 FF00 0A06 0000 607C
  344. 0FFF 30FE 000B 0700 0060 F603 FE30 A8FF
  345. 000B 0700 0060 E301 FC30 50FF 000B 0700
  346. 0060 C000 7830 20FF 000B 0700 0060 0000
  347. 1030 88FF 000B 0200 0060 FE00 0130 50FF
  348. 000A 0200 0060 FE00 0030 FE00 0B02 0000
  349. 60FE 0001 30A8 FF00 0B07 0000 6807 0700
  350. B050 FF00 0A06 0000 681F 8FC0 B0FE 000B
  351. 0700 006C 7FDF F1B0 A8FF 000A 0200 0067
  352. FEFF 0030 FE00 0B09 0000 63FF FFFE 31F4
  353. 1000 0B09 0000 307F DFF0 6046 3000 0B09
  354. 0000 381F 8FC0 E045 5000 0B09 0000 1C00
  355. 0001 C044 9000 0B09 0000 0E00 0003 8044
  356. 1000 0802 0000 07FE FFFD 0009 0500 0001
  357. FFFF FCFD 0008 FE00 0280 0004 FD00 9800
  358. 0A00 FF00 F801 1901 4800 FF00 FE01 1901
  359. 4500 FF00 FE01 1901 4500 0008 FE00 0280
  360. 0004 FD00 08FE 0002 FFFF FCFD 0008 0200
  361. 0001 FEAA FD00 0802 0000 03FE 55FD 000A
  362. 0600 0006 FEAF EA80 FE00 0A06 0000 0D83
  363. 5835 40FE 000A 0600 001B 01B0 1AA0 FE00
  364. 0A06 0000 3501 5015 50FE 000A 0600 006A
  365. 82A8 2AA8 FE00 0A06 0000 D57D 57D7 F4FE
  366. 000A 0600 01AF AAFA AC1A FE00 0A06 0003
  367. 5055 0558 0DFE 000B 0700 06A0 2A02 A80A
  368. 80FF 000B 0700 0D60 3603 5415 40FF 000B
  369. 0700 0AB0 6B06 ABEA C0FF 000B 0700 0D5F
  370. D5FD 5555 40FF 0009 0100 0AFC AA00 C0FF
  371. 0009 0100 0DFC 5500 40FF 0009 0100 0FFC
  372. FF00 C0FF 0002 F700 02F7 0002 F700 02F7
  373. 0002 F700 02F7 0002 F700 A000 8FA0 0083
  374. FF
  375.  
  376. * Menu color Definitions
  377. *
  378. * TYPE mctb followed by ID#,
  379. * followed by number of entries.
  380. * (ID 0 is menu bar entry.)
  381. * Other ID# are menu ID#.
  382. *
  383. * For each entry:
  384. * 1. Menu ID number
  385. * 2. Menu item number
  386. * 3. RGB color 1 (3 INTEGERS)
  387. * 4. RGB color 2 (3 INTEGERS)
  388. * 5. RGB color 3 (3 INTEGERS)
  389. * 6. RGB color 4 (3 INTEGERS)
  390. * 7. filler integer
  391.  
  392.  
  393. * menu bar
  394. Type mctb = GNRL
  395.     ,0
  396. * number of entries
  397. .I
  398. 1
  399. .I
  400. * Menu ID number & the Menu item number
  401. * 0 & 0 for menu bar entry.
  402. * Default title & title background =
  403. * black on white
  404. * Default item & item background = 
  405. * magenta on white
  406. 0 0
  407. .H
  408. 0000 0000 0000
  409. FFFF FFFF FFFF 
  410. FFFF 0000 FFFF 
  411. FFFF FFFF FFFF 
  412. 0000
  413.  
  414. * apple menu
  415.     ,256
  416. .I
  417. 3
  418. .I
  419. * title & title background =
  420. * Cyan on white
  421. * default item & background=
  422. * red on white
  423. 256 0
  424. .H
  425. 0000 FFFF FFFF 
  426. FFFF FFFF FFFF 
  427. FFFF 0000 0000 
  428. FFFF FFFF FFFF 
  429. 0000
  430. .I
  431. * ITEM ONE
  432. * Mark, command, name
  433. * and background =
  434. * blue on white
  435. 256 1
  436. .H
  437. 0000 0000 FFFF
  438. 0000 0000 FFFF
  439. 0000 0000 FFFF
  440. FFFF FFFF FFFF 
  441. 0000
  442. .I
  443. * ITEM TWO
  444. * Mark, command, name
  445. * and background =
  446. * blue on white
  447. 256 2
  448. .H
  449. 0000 0000 FFFF
  450. 0000 0000 FFFF
  451. 0000 0000 FFFF
  452. FFFF FFFF FFFF 
  453. 0000
  454.  
  455. * Graph menu
  456.     ,44
  457. .I
  458. 8
  459. .I
  460. * black on white
  461. 44 1
  462. .H
  463. 0000 0000 0000
  464. 0000 0000 0000
  465. 0000 0000 0000
  466. FFFF FFFF FFFF
  467. 0000
  468. .I
  469. * black on white
  470. 44 2
  471. .H
  472. 0000 0000 0000
  473. 0000 0000 0000
  474. 0000 0000 0000
  475. FFFF FFFF FFFF
  476. 0000
  477. .I
  478. * red on white
  479. 44 3
  480. .H
  481. FFFF 0000 0000
  482. FFFF 0000 0000
  483. FFFF 0000 0000
  484. FFFF FFFF FFFF
  485. 0000
  486. .I
  487. * green on white
  488. 44 4
  489. .H
  490. 0000 FFFF 0000
  491. 0000 FFFF 0000
  492. 0000 FFFF 0000
  493. FFFF FFFF FFFF
  494. 0000
  495. .I
  496. * blue on white
  497. 44 5
  498. .H
  499. 0000 0000 FFFF
  500. 0000 0000 FFFF
  501. 0000 0000 FFFF
  502. FFFF FFFF FFFF
  503. 0000
  504. .I
  505. * cyan on white
  506. 44 6
  507. .H
  508. 0000 FFFF FFFF
  509. 0000 FFFF FFFF
  510. 0000 FFFF FFFF
  511. FFFF FFFF FFFF
  512. 0000
  513. .I
  514. * magenta on white
  515. 44 7
  516. .H
  517. FFFF 0000 FFFF
  518. FFFF 0000 FFFF
  519. FFFF 0000 FFFF
  520. FFFF FFFF FFFF
  521. 0000
  522. .I
  523. * yellow on white
  524. 44 8
  525. .H
  526. FFFF FFFF 0000
  527. FFFF FFFF 0000
  528. FFFF FFFF 0000
  529. FFFF FFFF FFFF
  530. 0000
  531.  
  532. * Axis menu
  533.     ,45
  534. .I
  535. 8
  536. .I
  537. 45 1
  538. .H
  539. 0000 0000 0000
  540. 0000 0000 0000
  541. 0000 0000 0000
  542. FFFF FFFF FFFF
  543. 0000
  544. .I
  545. 45 2
  546. .H
  547. 0000 0000 0000
  548. 0000 0000 0000
  549. 0000 0000 0000
  550. FFFF FFFF FFFF
  551. 0000
  552. .I
  553. 45 3
  554. .H
  555. FFFF 0000 0000
  556. FFFF 0000 0000
  557. FFFF 0000 0000
  558. FFFF FFFF FFFF
  559. 0000
  560. .I
  561. 45 4
  562. .H
  563. 0000 FFFF 0000
  564. 0000 FFFF 0000
  565. 0000 FFFF 0000
  566. FFFF FFFF FFFF
  567. 0000
  568. .I
  569. 45 5
  570. .H
  571. 0000 0000 FFFF
  572. 0000 0000 FFFF
  573. 0000 0000 FFFF
  574. FFFF FFFF FFFF
  575. 0000
  576. .I
  577. 45 6
  578. .H
  579. 0000 FFFF FFFF
  580. 0000 FFFF FFFF
  581. 0000 FFFF FFFF
  582. FFFF FFFF FFFF
  583. 0000
  584. .I
  585. 45 7
  586. .H
  587. FFFF 0000 FFFF
  588. FFFF 0000 FFFF
  589. FFFF 0000 FFFF
  590. FFFF FFFF FFFF
  591. 0000
  592. .I
  593. 45  8
  594. .H
  595. FFFF FFFF 0000
  596. FFFF FFFF 0000
  597. FFFF FFFF 0000
  598. FFFF FFFF FFFF
  599. 0000
  600.  
  601. * Background menu
  602.     ,46
  603. .I
  604. 8
  605. .I
  606. 46 1
  607. .H
  608. 0000 0000 0000
  609. 0000 0000 0000
  610. 0000 0000 0000
  611. FFFF FFFF FFFF
  612. 0000
  613. .I
  614. 46 2
  615. .H
  616. 0000 0000 0000
  617. 0000 0000 0000
  618. 0000 0000 0000
  619. FFFF FFFF FFFF
  620. 0000
  621. .I
  622. 46 3
  623. .H
  624. FFFF 0000 0000
  625. FFFF 0000 0000
  626. FFFF 0000 0000
  627. FFFF FFFF FFFF
  628. 0000
  629. .I
  630. 46 4
  631. .H
  632. 0000 FFFF 0000
  633. 0000 FFFF 0000
  634. 0000 FFFF 0000
  635. FFFF FFFF FFFF
  636. 0000
  637. .I
  638. 46 5
  639. .H
  640. 0000 0000 FFFF
  641. 0000 0000 FFFF
  642. 0000 0000 FFFF
  643. FFFF FFFF FFFF
  644. 0000
  645. .I
  646. 46 6
  647. .H
  648. 0000 FFFF FFFF
  649. 0000 FFFF FFFF
  650. 0000 FFFF FFFF
  651. FFFF FFFF FFFF
  652. 0000
  653. .I
  654. 46 7
  655. .H
  656. FFFF 0000 FFFF
  657. FFFF 0000 FFFF
  658. FFFF 0000 FFFF
  659. FFFF FFFF FFFF
  660. 0000
  661. .I
  662. 46 8
  663. .H
  664. FFFF FFFF 0000
  665. FFFF FFFF 0000
  666. FFFF FFFF 0000
  667. FFFF FFFF FFFF
  668. 0000
  669. .I
  670.